#!/usr/bin/env perl

use utf8;
use strict;

my $dir = $ARGV[0];

my @file;

if($dir =~ /\/\Z/){
    @file = <$dir* $dir.*>;
}
else{
    @file = <$dir/* $dir/.*>;
}

foreach(@file){
    print "$_\n";
}
